From 32197d2e171e1ef2931efe6cd40a2388a8595b1a Mon Sep 17 00:00:00 2001 From: Jan D Date: Wed, 25 Aug 2010 08:53:55 +0200 Subject: [PATCH] * menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter on all frames. --- lisp/ChangeLog | 5 +++++ lisp/menu-bar.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2e37e087787..2b348842656 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-08-25 Jan Djärv + + * menu-bar.el (menu-bar-set-tool-bar-position): Set frame parameter + on all frames. + 2010-08-24 Vinicius Jose Latorre * whitespace.el: Allow cleaning up blanks without blank diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index ed5c189252b..98cb061cccb 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -970,7 +970,8 @@ mail status in mode line")) (defun menu-bar-set-tool-bar-position (position) (customize-set-variable 'tool-bar-mode t) - (set-frame-parameter nil 'tool-bar-position position) + (dolist (frame (frame-list)) + (set-frame-parameter frame 'tool-bar-position position)) (customize-set-variable 'default-frame-alist (cons (cons 'tool-bar-position position) (assq-delete-all 'tool-bar-position -- 2.30.2